home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PCONFRE2.ARJ / MACO20AB.LSP < prev    next >
Text File  |  1990-04-04  |  1KB  |  47 lines
  1. (DEFUN C:SAVPRT (/ STR SAVNAM)
  2. ;SAVES CURRENT UCS WITH VPORTS CONFIG. AND CURRENT WINDOW SO THEY CAN BE 
  3. ;RESTORED TOGETHER
  4. (SETQ STR "")
  5. (WHILE(NULL SAVNAM)
  6. (SETQ SAVNAM
  7. (GETSTRING"\nNAME FOR SAVING VIEW CONFIG? "))
  8. (IF(TBLSEARCH "UCS" SAVNAM)
  9. (SETQ STR(STRCAT STR " UCS")))
  10. (IF(TBLSEARCH "VPORT" SAVNAM)
  11. (SETQ STR(STRCAT STR " VPORTS")))
  12. (IF(TBLSEARCH "VIEW" SAVNAM)
  13. (SETQ STR(STRCAT STR " VIEW")))
  14. (IF(NOT(EQUAL STR ""))
  15. (PROGN
  16. (PRINC(STRCAT"\nSORRY, FOLLOWING CONFIGS:"
  17. STR " ARE ALREADY SAVED WITH THE NAME: "SAVNAM))
  18. (SETQ SAVNAM nil STR "")
  19. )
  20. (COMMAND "UCS" "S" SAVNAM "VPORTS" "S" SAVNAM "VIEW" "S" SAVNAM)
  21. )
  22. (PRINC)
  23. )
  24. )
  25. (DEFUN C:GETPRT (/ STR GETNAM)
  26. (SETQ STR "")
  27. (WHILE(NULL GETNAM)
  28. (SETQ GETNAM
  29. (GETSTRING"\nNAME OF VIEW CONFIG. TO RETRIEVE? "))
  30. (IF(NULL(TBLSEARCH "UCS" GETNAM))
  31. (SETQ STR(STRCAT STR " UCS")))
  32. (IF(NULL(TBLSEARCH "VPORT" GETNAM))
  33. (SETQ STR(STRCAT STR " VPORTS")))
  34. (IF(NULL(TBLSEARCH "VIEW" GETNAM))
  35. (SETQ STR(STRCAT STR " VIEW" )))
  36. (IF(NOT(EQUAL STR ""))
  37. (PROGN
  38. (PRINC(STRCAT"\nSORRY, THE FOLLOWING CONFIGS:"
  39. STR " ARE NOT SAVED WITH THE NAME: " GETNAM))
  40. (SETQ GETNAM nil STR "")
  41. )
  42. (COMMAND "UCS" "R" GETNAM "VPORTS" "R" GETNAM "VIEW" "R" GATNAM)
  43. )
  44. )
  45. (PRINC)
  46. )
  47.